home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / VI5.ARJ / VIDEMO.EXE / SAMPLE2.PRG < prev    next >
Text File  |  1992-01-21  |  1KB  |  29 lines
  1. ************************************************************************
  2. * SAMPLE2.PRG                           Peter M. Freese
  3. * 1/20/92                               Pinnacle Publishing, Inc.
  4. *
  5. * Source code demonstration of Group Box and Check Box classes
  6. ************************************************************************
  7.  
  8. #include "vi.ch"
  9. #include "inkey.ch"
  10.  
  11. FUNCTION Sample2()
  12. LOCAL oWin,oGB
  13.   // create a window
  14.   oWin := VWindowNew(12,20,27,60,0,WS_DOUBLEBORDER+WS_TITLE,;
  15.     HIWHITE,GREEN,"Group Box and Check Box Classes")
  16.  
  17.   // create a group box control
  18.   oGB := VGroupBoxNew(oWin,2,10,11,30,GB_BORDER+GB_TITLETHRU+GB_TITLEMID,;
  19.     "File Attributes")
  20.  
  21.   // create check box control
  22.   VCheckBoxNew(oWin,oGB,K_ALT_A,1,2,0,BLACK,.T.,"&Archive")
  23.   VCheckBoxNew(oWin,oGB,K_ALT_H,3,2,0,BLACK,.T.,"&Hidden")
  24.   VCheckBoxNew(oWin,oGB,K_ALT_R,5,2,0,BLACK,.F.,"&Read only")
  25.   VCheckBoxNew(oWin,oGB,K_ALT_S,7,2,0,BLACK,.F.,"&System")
  26.  
  27.   // return window object to calling routine
  28. RETURN oWin
  29.